home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / paketkar.for < prev    next >
Text File  |  1993-06-30  |  3KB  |  93 lines
  1. /FORMULAR Zahlschein + Nachnahmepaketkarte entspr. dem Formular der Post
  2. //!DRUCKER 1. DRUCKER     // ==> Formular ohne Menüabfrage auf 1.installierten Drucker ausgeben
  3. ^10
  4. !LINKER RAND 0
  5.  
  6.  #EMPFAENGER                                       // Ihre Firma (Menü Einstellungen)
  7.  
  8.   #EMPF_KTONR                            #EMPF_BLZ    // Ihre Bankverbindung
  9.  
  10.  #EMPF_BANK
  11.  
  12.                            ^B #Betrag:10:2 ^b ^10
  13.  
  14.  Rg.Nr. #Atr_Nr:8:0  vom #RgDatum
  15.  
  16.  Kd.Nr. #Kdnr:8:0
  17.  
  18.  ^17#Einzahler ^10                                // der Kunde als Einzahler
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.                  ^17 #Firmenabsender ^10        // Ihr Absender in schmal
  31.  
  32.  
  33.  
  34.  
  35.  
  36.                            ^17 #Vermerk  ^10
  37.  
  38.  
  39. ^12#NachnahmeBetrag:7:2 ^10    ^F^B #NachnahmeDM:7:0 #NachnahmePF:2 ^b^f
  40.  
  41.  
  42. ^12#Name:30                       #Vorname#Name
  43. #Strasse:30                    #Name2
  44. #Plz  #Ort:24                  #Strasse
  45.  
  46.                                #Land#Plz  #Ort
  47.  
  48. /!SEITENAUSWURF   // Diese Zeile aktivieren, falls Zahlkarte ausgeworfen wd. soll
  49.  
  50. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  51.  
  52.  
  53.  
  54. *******************************************************************************
  55. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  56. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  57. *******************************************************************************
  58.  
  59. !PLATZHALTER
  60.   #KdNr ,            ako->at_kdnr
  61.   #FIRMENABSENDER ,  fir->fenster
  62.   #ANREDE ,          kun->anrede
  63.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  64.   #NAME ,            kun->n2
  65.   #NAME2 ,           kun->ansprechp
  66.   #STRASSE ,         kun->strasse
  67.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  68.   #PLZ ,             kun->plz
  69.   #ORT ,             kun->ort
  70.  
  71.   #EMPFAENGER,       fir->atr_zschfi   // Ihre Adresse als Empfänger
  72.   #EMPF_KTONR,       Charrem( '"ABCDEFGHIJKLMNOPQRSTUVWXYZ. ', Upper( fir->knr_1) )
  73.   #EMPF_BLZ,         Charrem( '"ABCDEFGHIJKLMNOPQRSTUVWXYZ. ', Upper( fir->blz_1) )
  74.   #EMPF_BANK,        Trim( fir->bank1) // mit Trim() rechte Leerstellen löschen
  75.  
  76.   #AuftragSumme,     ako->at_wert      // Rechnungsendbetrag (ohne SkontoAbzug)
  77.  
  78.   #SkontoProzent,    ako->skonto       // Skonto in Prozent
  79.   #SkontoBetrag,     #Auftragsumme * (#SkontoProzent / 100)  // Skonto in Cash
  80.  
  81.   #Betrag,           #AuftragSumme     // Ausgedruckter Rechnungsendbetrag
  82.   #NachnahmeBetrag,  #Betrag + 3       // Rechnungsendbetrag+ Nachnahmegebühr
  83.   #NachnahmeDM,      Int( #NachnahmeBetrag)
  84.   #NachnahmePF,      Substr( Alltrim( Str( #NachnahmeBetrag - #NachnahmeDM)), 3)
  85.  
  86.   #Einzahler,        Trim( ako->at_n1)+ ' '+ Trim( ako->at_n2)+ ', '+ Trim( ako->at_stra)+ ', '+ ako->at_plz+ ' '+ Trim( ako->at_ort)
  87.  
  88.   #Vermerk,          IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
  89.  
  90.   #ATR_NR ,          ako->at_nr
  91.   #RGDATUM ,         ako->at_rgdat     // Datum der Rechnung
  92.   #AtrDat,           ako->at_dat       // Auftrag angelegt am
  93. !ENDE PLATZHALTER